Language/OS - Multiplatform Resource Library/LANGUAGE OS.iso/oper_sys/fp/ifp_unix.lzh/ifp/fproot/math/linear/L

Text File | 1987-02-09 | 173 b | 11 lines

(* L part of LU decomposition of matrix *)
DEF L AS
   IF Singleton THEN #<<1.0>>
   ELSE
      [
         Li1,
     Aik | [EACH #0 END,L] | apndl
      ] | ApndlCol
   END;